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Jon~sen~ 1386 90: ¢3: 7 VAX=11 Bliss=32 V4.0-742 
14-Sep-1984 12:50:22 DISKSVMSMASTER:CF11X.SRCJEXTEND.B32; 479 el 


egies LANGUAGE , (BLISS32) , 
IDENT =. "VO4=000" 


~" 


BEGIN 


' 
SOR REAR R EAE EEA KEKKAAKee eee eee ee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
* 

* 

® 

* 

' * 
'® THIS SOFTWARE IS aeaitaee uct A License AND MAY BE USED AND COPIED * 
2 @ RDANCE W SUCH bi Cone AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER * 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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't TRANSFERRED. 
t* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» aeepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: F11ACP Structure Level 1 

ABSTRACT: 

This routine extends a file by the requested number of blocks. 

ENVIRONMENT : 
| 
| 
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STARLET operating system, including privileged system services 
and internal exec routines. 
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5 5 
46 046 
4 otf AUTHOR: Andrew C. Goldstein, CREATION DATE: 24-Feb-1977 15:42 
$3 Ben MODIFIED BY: 
51 051 v03-011 e0s0008 Christian D. Saether 14-Aug-1984 
26 O36 t CLF _MARKFCBSTALE. Modi fy handling of new 
27 ber ~ H.,*. fcbs. 
55 055 v03-010 CDS0007 Christian D. Saether (31-July-1984 
2$ 5e9 Declare registers notused in get_map_pointer Linkage. 


adhe I 16- sep-] =33 4 ¢ 99: §3: 97 VAX=11 Bliss-32_ V4.0-742 ¢ 


v04- DISKSVMSMASTER : CF11X.SRCJEXTEND.B32; a9 ” 2 

; 8 28 1! v03-009 ee Christian D. Saether 25-Apr-1984 

: 2 é : Long addressing mode for certain routines. 
: 61 ei 1/ v03-008 cos $0005 Christian D. Saether 1-Mar-1984 
: ° bo¢ : Remove FLUSH_FID call now that caching is restored. 

5 64 Soe 1 i v03-007 CDS0004 Christian D. Saethe 30-Dec-1983 

; 65 Boee : } Use L_NORM Linkage oa BIND_ COMMON. nacre. 

: 8 008? 1 / v03-006 cesyous Christian D. Saether 16-Jun-1983 

: 68 0068 1! Don't release allocation lock before returning. 
; 34 1! This is because index file extension calls this routine 

; 070 1! in pecendary context and must retain the allocation 
: 71 0071 1! lock. Deadlock with header creation is avoided 

: f Bae : by releasing the allocation lock in create_header. 

; - 0074 1: v03-005 cps0002 Christian D. Saether — 10-Jun-1983 

. > io 0075 1! Write the modified storage bitmap blocks before 

: 6 Bae : Pokaentnn the allocation synchronization lock. 
: 78 0078 1! v03-004 CDS0001 Christian D. Saether 16-May-1983 

; 79 0079 1! Release allecesion, Lost before returnin ng. 

: 80 0080 1! Don't check VCBSL_ 
; 81 0081 1} | 
; ¢& 0082 1! v03-003 $TJ3071 nT. Jeffrey 23-Mar-1983 

3 oz Boz : Use the ERASE REQUESTED pereneter ‘et RETURN_BLOCKS. 

; 85 0085 1! v03-002 ACG0300 Andrew C. Goldstein, 12-Oct-1982 17:26 | 
; HY poe : } Clear header under merged map pointer | 
: 88 0088 1! v03-001 ACG0270 Andrew C. Goldstein 23-Mar-1982 9:53 | 
; 34 it 34 : Shut off placement RVN after first loop iteration 

: 91 0091 1! vO2-60F LAP0003 L. Mark Pilant 24-Nov-1981 10:30 | 
3 3 B28 ' } Added support for extending a file with cathedral windows. 

> 94 0094 1 v02-008 $1/34965 Steven T. Jeffreys 28-Feb-1981 

; 95 0095 1! Tempore fix to not charge for Bl ekeust ta 

; 38 44 : 1B$V y NOCHARGE is set. 

> 98 0098 1 | v02-007 ACG0162 Andrew C. Goldstein, | 21-Mar-1980 14:10 

3 196 S044 ; Fix NOTVOLSET status in extend failure 

: 101 9191 1 B0106 ACG26369 Andrew C. Goldstein, 28-Dec-1979 15:46 

: 196 O10 ! Fix multi=header interlock bug 

: 104 0104 1! 80105 — AcG0082 Andrew C. Goldstein, | 14-Nov-1979 0:11 

3 133 4 : Add write-back cacheing of file headers 
: 109 109 1 i B0104 €G0053 Andrew C. Goldstein, 20-Jul-1979 13:59 
: 18 198 ’ } Flag white blocks allocated but not charged 

: 110 110 1! B0103 ACG0044 Andrew C. Goldstein, 14-Jun-1979 14:03 

: ii) My : Add disk quota support 

: 118 118 1 i B0102 AcG0008 Andrew C. Goldstein, 26-Dec-1978 18:07 | 
: 114 36 «7 7 Add placement control support 
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16-Sep-1984 00:25:07 VAX=-11 Bliss-32 V4.0-742 Pa 
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GLOBAL ROUTINE EXTEND (USER_FIB, FILEHEADER) : L_NORM NOVALUE = 
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FUNCTIONAL DESCRIPTION: | 
This routine extends the given file by the amount and in the 
mode given in the FIB, The blocks are or tecated from the storage 
bitmap and retrieval pointers are constructed in the header. 


CALLING SEQUENCE: 
EXTEND (ARG1, ARG2) 


i 

i 

i 

i 

i 

! 

! INPUT PARAMETERS: 

: ARG1: address of FIB for operation 
ARG2: address of file header 
! IMPLICIT INPUTS: 

} CURRENT_WINDOW: window of file, if open 
: C_RVN: placement RVN or 0 
LOC_LBN: placement LBN or 0 
! OUTPUT PARAMETERS: 

} NONE 

i 

i 

i 

i 

i 

i 

i 

i 

le 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
blocks allocated, file header altered 


BEGIN 
LINKAGE 


: This local declaration of the get_map_pointer linkage is done here 
! so that different names can be used for the global registers from 
the names used in the fcpdef version. 


L_MAP_POINTER_ALT = JSB : 
GLOBAL (OLD_COUNT = 6, OLD_LBN 
NOTUSED (2,3,4,5,9,10,11 


L_MAKE_POINTER = CALL : 
GLOBAL (BUILD_POINTER = 9); 


= 7 MAP_POINTER = 8) 
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: : REF BBLOCK, 


' FIB of operation 
ER : REF BBLOCK; ! fil 
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e header to extend 
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4 
EXTEND 18-se -1984 00:25:07 VAX-11 Bliss-32 V4.0-742 Page 5 
v04-000 1 ~3007 138% 99:99:95 DISKSVMSMASTER:CF11X.SRCIJEXTEND.B32;1 . (2) 
3 } 5 1128 ALLOC_LOOP; ! Block allocation and recording loop 
a % 1178 GLOBAL REGISTER 
; 188 117 OLD_COUNT = . ' count of previous retrieval pointer 
: #189 1128 _LBN = 7, ! LBN of previous retrieval pointer 
; 190 117 MAP POINTER = 8 : REF BBLOCK, ! pointer to retrieve map entries 
; 131 i) 9 BUICD_POINTER = 9 : REF BBLOCK; ! pointer to build map entries 
; 198 11 ¢ LOCAL 
3: 194 11 1B : REF BBLOCK, ! address of FIB 
3 195 1184 HEADER : REF BBLOCK, ' address of current file header 
: 138 1185 FCB : REF BBLOCK, ! FCB of header being extended 
;. 39 11 § NEW_HEADER : REF BBLOCK, ! next extension file header 
; 198 11 WINDOW SEGMENT : REF BBLOCK, ! address of the next window segment 
3 199 1188 PLACEMENT : BBLOCK [4], ! placement control pointer to build 
: soe 1189 ! flag to re-read primary file header 
: 201 1190 MAP_END, ! end of map area pointers 
; o 1191 BLOCKS NEEDED, ! number of blocks to be allocated 
; a 1B CBT_COUNT, ! count of bitmap scans 
3; 204 119 EXTEND_VBN, ' starting VBN of extend 
; 205 1194 2 LBN ' LBN of Blocks allocated 
; 206 1195 ALLOC_COUNT, ! number of blocks allocated 
: 207 1139 COUNT; ! count of blocks for map pointers 
; 208 119 
; 209 1198 BIND_COMMON; 
; $19 1199 
: 211 1200 EXTERNAL ROUTINE 
; ge 1201 PMS_START_ SUB : L_NORM, ' start subfunction metering 
3 2s 1308 2 END : L-NORM, ! end subfunction metering 
> 214 1203 2 CHARGE _GUOTA : LINORM, ! charge user's disk quota 
; 219 1204 2 NEXT_HEADER : LINORM, ! read next extension header 
; 216 1205 MARK_DIRTY : L-NORM, ! mark buffer for write-back 
3 6gie 1206 MARK_INCOMPLETE : L_NORM ADDRESSING_MODE (GENERAL), ! mark the windows incomplete 
3; 218 1607 GET_MAP_POINTER : L_MAP_POINTER ALT, ! 9st contents of map pointer 
; 219 1208 MAKE_POINTER : LIMAKE POINTER, ! puild new map pointer 
; 220 1209 2 ALLOC_BLOCKS : L_NORM, ! allocate blocks from storage map 
; 221 1619 2 EXTEND_HEADER : L_NORM, ' create extension header 
$ $56 1211 2 RETURN BLOCKS : L_NORM, ' return blocks to storage map 
3 iste CHECKSOM : LUNORM, ' compute file header checksum 
; 224 121 TURN_WINDOW : L_NORM ADDRESSING_MODE (GENERAL), ! update file window 
3 225 1214 INIT~FCB2 : LINORM, ' initialize FCB 
3 $$$ 1215 READ_HEADER : L-NORM; ! read file header 
a it 
; 23 ' 13 Start metering for this subfunction. 
s sl 1220 
3 3 : 1 PMS_START_SUB (PMS_ALLOC); 
| 34 12 : !' Check the allocation control bits for validity. Then get the block count 
: .2oe 1224 ! and set up pointers. Check the amount requested against the user's 
; 236 1225 ! disk gyete. We check first and charge after to (1) simplify error recovery 
3 3 : $ and (2) avoid penalizing the user for cluster roundup. 
3 5 1228 
: 240 1229 FIB = ,USER_FIB; 
3 ofl 1230 3 IF (NOT .FIBCFIBSV_ALCON) AND .FIBCFIBSV_FILCON]) 
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If ‘he NOCHARGE bit is set, do not charge the file for diskquota. 
if NOT .FIB CFIBSV_NOCHARGE) 


CHARGE_QUOTA (.HEADERCFH2SL_FILEOWNER], .BLOCKS_NEEDED, BITLIST (QUOTA_CH 


If the file is marked contiguous best effort, make the extend so. 


IF _ .HEADERCFH2$V_CONTIGBI 


IF NOT .FIBCFIBSV_ALCON] THEN FIBCFIBSV_ALCONB) = 


Scan through this header's map area and through the map area of all 
i extension 
to start extension. 


eaders to compute the current file size and find the end of file 


REREAD = 0; 
WHILE 1 00 


BEGIN 

MAP -POINTER = -HEADER + .HEADERCFH2$B_MPOFFSET]*2; 
MAP-END = MAP POINTER + sHEADERCE FH2$B_MAP_ INUSEJ*2; 
BUICD_POINTER = .MAP_POINTER; 


IF _ .HEADERCFH2$8_MAP_INUSE) NEQ 0 AND .FIBCFIBSV_FILCON) 
THEN ERR_EXIT (SS$_BADPARAM) ; 


UNTIL. .MAP_POINTER GEQA .MAP_END DO 
BEGIN 


BUILD POINTER . -MAP_POINTER; 
T_MAP_POIN 
XTEND Puen = veR TEND. VBN + .OLD_COUNT; 


NEW_HEADER = NEXT "ithe (HEADER, .FCB); 
IF NEW. HEADER | Ea THEN EXITLOOP; 
HEADER Es iNEW.H 


AD = 


FCB = seatttem. peel 
END; 


! Check the remaining parameters and set the relevant cleanup action flags. 


“2” het oe 7 
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Now loop, allocating blocks fom the storage map and building retrieval 
pointers in the header. Accumulate blocks allocated in the 1/0 
Status block. Note that blocks may be preallocated - pick them up if so. 


IF _ .FIBCFIBSL_EXVBN] NEQ 0 AND .FIBCFIBSL_EXVBN) NEQ .EXTEND_VBN 
THEN ERR_EXIT (SS$_BADPARAM) ; 

MARK_DIRTY (.HEADER); 

CLEANUP_FLAGSCCLF_TRUNCATE) = 1; 

CLEANUP"FLAGSCCLF-FIXFCB) = 1; 

CLEANUP_FLAGSLCLF_NOTCHARGED) = 1; 

CBT_COUNT = 0; ! init count of bitmap scans 
FIBEFIBSL_EXSZ] = 0; 

FIBLFIBSL_EXVBN] = .EXTEND_VBN; 

MAP_POINTER = .BUILD_POINTER; ! point to last entry in map 
i] 


WHILE 1 os ! Loop to allocate space 
IF .UNREC_COUNT NEQ 0 
THEN 
BEGIN 
COUNT = .UNREC_COUNT; 


LBN = .UNREC_L 
EXITLOOP; 
END 


If the volume is totally full, or if placement control is directing us to 
another volume, continue the file on another volume in the set if this is 


F .LOC_RVN EQL 0 
OR .LOC_RVN EQL CURRENT RVN 
R (,.LOC_RVN EQL 1 AND .CURRENT_RVN EQL 0) 
wen ALLOC_BLOCKS (.FIB, .BLOCKS_NEEDED, LBN, ALLOC_COUNT) 


BEGIN 
COUNT = .ALLOC_COUNT; 
EXITLOOP; 

END 


! For whatever reason, we do not want to continue allocating on the current 
! volume. The decision tree runs as follows: If this is not a volume set, 
!' we lose - return either device full or not volume set status, depending 


Pa 
JEXTEND.B32;1 


a volume set. If this is not a volume set then it's all over but the shouting. 
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; | 
EXTEND 1b-5e -1984 00:25:07 VAX-11 Bliss-32 V4.0-742 Page 8 
v04-000 1 ~8ep-19 4 99°9:35 DISKSVMSMASTER:CF11X.SRCJEXTEND.B32;1 . a 
; 356 1345 7 ! on whether volume placement was or was not specified. If this is a volume ° 
s S57 1346 7 ! set and placement wants us on this volume, we also lose. If exact placement : 
; 398 1347 7 ! was specified, give up, else throw away placement data and try elsewhere. ; 
: 28 : rk f AY eacenens wants us elsewhere (or no volume placement is specified), go : 
: 361 1350 7: ° : 
3 66 1351 7 . 
s 3 1 26 6 ELSE : 
> 364 1353 7 BEGIN 3 
: 9? : 22 4 41 gg URRENT AVE EQL 0 ; 
: 367 1 BEGIN ; 
: 68 1 2$ § IF .LOC_RVN LEQU 1 : 
; 69 1358 9 THEN ERR_EXIT (SS$_DEVICEFULL) : 
: 4 1323 4 yy ERR_LEXIT (SS$_NOTVOLSET); ‘ 
372 1361 7 ELSE IF .CURRENT_RVN EQL .LOC_RVN : 
: 374 1368 8 BEGIN ; 
; 375 1364 8 IF .FIBCFIBSV_EXACTI : 
: 376 1365 9 THEN ERR_EXIT” (SS$_DEVICEFULL) | 3 
: 378 1367 9 BEGIN | : 
: 379 1368 9 LOC_RVN = 0; : 
: 380 1369 9 LOC-LBN = 0; : 
: 381 1370 8 END; 3 
; $86 1371 7 END; 3 
: 38 1372 7 : 
3; 384 1373 7 HEADER = EXTEND HEADER (.FIB, .HEADER, .FCB, .LOC_RVN, .BLOCKS_NEEDED); ; 
; 385 1374 7 CB = .FCBCFCBSC_EXFCBI; 5 
; 386 1375 7 FCB CFCBSL_STVBNJ = FCB CFCBS$L_STVBNJ : 
: 387 1376 7 + .PRIMARY_FCB CFCBSL_FILESIZEJ ; 
: 308 Vee 4 + .FIB CF IBSL_EXSZJ; é 
: 390 1379 7 MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ*2; 
. 30) 1300 4 BuIED POINTER = .MAP_POINTER; 
: 393 1382 & EE a 
3; 394 1383 5 END; 
: 44 Ieee : END; ! end of allocation loop | 
: 338 1386 4 FIBCFIBSL_EXSZ) = .FIBCFIBSL_EXSZ]) + .COUNT; 
; $8 1337 ? BLOCKS_NEEDED = .BLOCKS_NEEDED = MINU (.BLOCKS_NEEDED, .COUNT); | 
; rey 1385 : If this is a placed allocation, construct a suitable placement pointer. | 
: 402 1391 4 | 
: 40 1398 4 PLACEMENT = 0; | 
: the 1e37 2 Pej (OCF 1888 MALION NEQ 0 
: 406 1335 5 BEGIN | 
; 40 1396 5 PLACEMENT<0,32> = .FIBCFIBSB_ALOPTS); | 
; 408 1397 IF .LOC_LBN N 
: ret : 38 HEN DUAL ERENT LFRZSV LOND #1; 
: 411 1400 THEN PLACEMENTCFM2$V_RVN) = 1; | 
3 412 1401 4 END; 
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s 4615 1402 4 

> 6414 1208 4 ! Build the map pointer. If the new area allocated is contiguous with 
s 635 1404 4 ! the last pointer in the header, merge the pointers. 

>; 416 1405 4! 

: 417 1406 4 

; 418 1407 4 IF_ .HEADERCFH2$B_MAP_INUSE] NEQ 0 

> 419 1408 4 THEN 

; 420 1409 2 BEGIN 

; 421 1410 BUILD_POINTER = .MAP_POINTER; ! save pointer position 

; 46 ¢ 1411 5 GET_MAP_POINTER (); 

s 6 1016 5 IF .OLD_LBN + .OLD_COUNT EQL .LBN 

> 4264 1413 5 THEN 

: 425 1414 6 BEGIN 

; 426 1415 6 HEADERCFH2$B_MAP_INUSE] = .HEADERCFH2$B_MAP_INUSE) 

: 427 1416 6 - (.MAP_POINTER’= .BUILD_POINTER) / 2; 
: 428 1417 6 COUNT = .COUNT + .OLD_COUNT; 

: 429 1418 6 LBN = .OLD_LBN; 

; 450 1419 6 IF .BUILD_POINTERCFM2$V_FORMAT] EQL FM2$C_PLACEMENT 

: ¢33 1e6y 2 THEN PLACEMENT = .PLACEMENT OR .BUILD_POINTERLFM2$W_WORDO); 
: 433 1458 6 CHSFILL (0, .MAP_POINTER = .BUILD_POINTER, .BUILD_POINTER); 
> 434 1423 6 MAP_POINTER = .BOILD_POINTER; 

3; 435 1OSe 6 END 

; 436 1425 5 ELSE 

: 437 1426 5 BUILD_POINTER = .MAP_POINTER; 

: O39 1038 a 

: 440 Hr 4 ! Now build a retrieval pointer to map the allocated blocks. If the map fills 
3; 441 1430 4 ! up, store the unrecorded blocks in common so they can be returned 

3: 644 1431 4 ! by the extend cleanup, and create an extension header. If header 

: 44 1432 4 ! extension is inhibited, return the unrecorded blocks and get out quietly. 
> 444 1433 4 ! We first attempt to create a smaller pointer to map at least some of 
; 445 1434 4 ! the blocks that were allocated. We return header full status only if 
: 446 1435 4 ! no new blocks were recorded. 

; 447 1436 4! 

; 448 1437 4 

: 449 1438 4 IF NOT MAKE_POINTER (.COUNT, .LBN, .HEADER, .PLACEMENT) 

: 450 1439 4 THEN 

3 4633 1440 5 BEGIN 

; 45 1441 § IF _ .FIBCF IBSV_NOHDREXT) 

; «645 1006 5 THEN 

3 454 1445 6 BEGIN 

; &20 1444 6 IF MAKE_POINTER (1°14, .LBN, .HEADER, .PLACEMENT) 

: 45 1445 § THEN 

; «445 ives BEGIN 

; 458 144 7 COUNT = .COUNT = 1°14; 

; 459 1448 7 LBN = .LBN + 1°14; 

; 460 1449 7 END é 

: 461 1450 6 ELSE IF MAKE_POINTER (256, .LBN, .HEADER, .PLACEMENT) 

: 46 1451 § THEN 

: 46 1026 BEGIN 

: 464 1453 7 COUNT = .COUNT = 256; 

: 465 1454 7 LBN = .LBN + 256; 

3 £06 1455 6 END; 

: 46 1628 6 RETURN BLOCKS (.LBN, .COUNT, DO_NOT_ERASE); 

3; 468 1457 6 UNRE C COUNT = 9: 

; 469 1458 6 FIBCFTBSL_EXSZ) = .FIBCFIBSL_EXSZ) - .COUNT; 
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ELSE 


~ COUNT; 
URRENT_RVN; 

D HEADER ({FIB, .HEADER, .FCB); 
BN] = .FCB CFCBSL STVBN] 


+ PRIMARY FCB CFCBSL_FILESIZEJ 
+ IFIB CFIBSL_EXSZ) -~.COUNT; 


MAP POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ*2; 
BUICD POINTER = .MAP_POINTER; 


IF NOT MAKE POINTER (.COUNT, .LBN, .HEADER, .PLACEMENT) 
en BUG_CHECK (EXHFUL, FATAL, "Eile extension header has no room'); 


END; 
UNREC_COUNT = 0; ! all blocks are now recorded 


! If this was a contiguous tg gba: we are done. Else count the pass 

' through the allocator. After 3 passes, shut off the contiguous best try 

' bit to avoid taking forever (since each CBT try is a full sweep of the map). 
Also shut off the placement LBN and RVN, 

in case this is a placed, non-contiguous allocation, so that it will 

simply search upwards. 


IBSV_ALCON) THEN EXITLOOP; 
= .CBT_COUNT + 1; 


SARS 


F 
T 
COUNT GEQU 
BCFIBSV_ALCONB) = 0; 
3 . 
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ta 


END; ! end of block ALLOC_LOOP 


If the file is open by the caller, turn the window to the last VBN 

that previously existed as a friendly gesture. Then, if the current header 
is an extension header, write it and read back the primary header. Also 
set the contiguous bit in the header appropriately and return the extend 
data in the FIB. Update the file size in the primary FCB. 
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IF .CURRENT_WINDOW NEQ 0 
HEN 


GIN 
IF NOT .CURRENT WINDOWCWCBSV CATHEDRAL] 
ee KERNEL_CALC (TURN_WINDOQ, .CURRENT_WINDOW, .HEADER, .FIBCFIBSL_EXVBNJ-1, .FCBCFCBSL_STVBN)) 
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CLEANUP _FLAGS CCLF_MARKFCBSTALE] = 


MARK_DIRTY ( tras ); 

BBLOTK CHE ADER FHo$W_RECATTRI 

neapentrnaay fo NTIG)~= .FIBCFIBSV 

HEADERCF ONTIGB) = .FIBCFIBS$ $9 hee 
USER = .FIBCFIBSL_EXS 

SR ERARY rCB “eset _FILESIZE] = 


! Finally coerge the blocks allocated to the use 
i If the NOCHARGE bit is set, do not charge the tile for 


if NOT . -FIB CFIBSV_NOCHARGE) 


LEANUP_FLAGSCCLF_NOTCHARGED) = 
Stop metering of this subfunction 


c——= & deca 
z=" 


MS_END_SUB (); 
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! end of routine 
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BEGIN 
KERNEL CALL (MARK_INCOMPLETE, .PRIMARY_FCB); 
END; 
IF .REREAD 
THEN 
BEGIN 
CHECKSUM (.H HEADER) ; 
IF .FCB NEQ 0 THEN KERNEL_CALL (INIT_FCB2, .FCB, .HEADER); 
HEADER = READ_HEADER (FIBCFIBS BSW _FIDI7 COR iMARYS FCB); 


ayente the HIBLK field in the record attributes to reflect the new file 
' size. 


FATSL rr ROT (.FIBCFIBSL_EXVBN) + .FIBCFIBSL_EXSZ] - 1, 16); 


“F LBCFIBSL _EXVBN] + .FIBCFIBSL_EXSZ) - 1; 


diskquota. 


CHARGE QUOTA (.HEADERCFH2SL eee -FIBCFIBSL_EXSZ], BITLIST (QUOTA_CHARGE)); 


EXTEND 
EXTEND 

\V04-000\ 

PMS_START_SUB, PMS_END SUB 
CHARGE QUOTA, NEXT HEADER 

a abiRty MARK. INCOMPLETE 
MAKE POINTER ALLOC_BLOCKS 
EXTEND HEADER. RETURN _BLOCKS 
CHECKSOM Ow™ 

INIT -FCBe. "READ HEADER 
BUGS"EXH 

sone sigatan 
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a eet 1 99:93:95 DISKSVMSMASTER:CF11X.SRCJEXTEND.B32; 1 9 02) 
04 BE DD 0017 PUSHL @4(SP) ; : 
18 AE DD 001 PUSHL FCB : ; 
18 AE DD 001 PUSHL HEADER : ; 
: DD 001 PUSHL aU : : 
00006 CF FB 001 CALLS #5, EXTEND_HEADER : : 
OC AE 0 DO 0018D MOVL. RO. HEADER : ; 
50 19 AE C1 00191 ADDL3 At FCB, R ; 1374 : 
10 A 69 0 00196 Move © (ROS,_—FCB : ; 
5 04 BE DO 0019A MOVL. a@4(SP), RO t 1376 : 
51 10 AE g C1 0019 ADDL3 #44, FCB, R1 : ; 
0 61 38 AO C1 OO1A ADDL3 56(RO), (R1), RO : ; 
52 10 A 2 g iA ADDL3 #44, FCB Re + 1377 ; 
é 18 BB E OO1AD MOVAB a¢4ir 16) £R0 (R2) : 
51 oc A O1 C1 001Be ADDL3 #1, HEADER, R1 ; 1379 ; 
5 61 9A 001B MOVZBL (R : : 
58 0c BE4O Hs O1BA MOVAW  @HEADERCROJ, MAP_POINTER : : 
59 58 DO 001BF MOVL § MAP_POINTER. BUICD_POINTER + 1380 : 
20 AE 01 26 ice MOVL READ > 1381 ; 
FF49 31 OO1C BRW 15 + 1313 : 
18 AB 16 AE CO 001C9 246%:  ADDL2 COUNT, 24(FIB) + 1386 : 
50 1¢ AE DO O01 cE MOVL BLOCKS_NEEDED, RO + 1387 : 
14 AE 50 D1 001D CMPL RO, COUNT : ; 
04 1B 00106 BLEQU § : : 
50 146 AE DO 0010 MOVL COUNT, RO : : 
1c AE 50 C2 001DC 25$:  SUBL2 RO, BLOCKS_NEEDED : : 
18 AE D4 O16 CLRL PLACEMENT : 1392 ; 
21 AB 95 OO1E TSTB ©. 33 (FB) : 139 : 
17 13 00186 EQL 7$ : ; 
18 AE 20 AB 9A OO1E8 MOVZBL g(F 1B) PLACEMENT > 13% : 
20 AA D3 OO1ED STL (BASES ; 1397 : 
04 13 001FO EQL ©. 26$ : : 
19 AE 10 88 001F2 BISB2 #16, PLACEMENT+1 : 1398 ; 
00 BE D3 O01F6 26%: = ‘TSTL a0 (SP) : 1399 : 
04 13 001F9 EQL «= 27$ : ; 
19 AE 0 88 001FB BISB 32. PLACEMENT+1 + 1400 ’ 
50 OC AE A Ci OO1FF 27$:  ADDL3 #58. HEADER, RO : 1407 ; 
60 3 0204 TSTB = (ROS : ; 
47 13 00 BEQL  30$ : ; 
59 58 06 020 MOVL § MAP_POINTER, BUILD_POINTER + 1410 : 
00006 0208 BSBW. GET MA N : 1411 : 
50 57 56 1 0020 ADDL3 OLD-COUNT, OLD_LBN, RO > 1412 ; 
2c AE 0 D1 0021 CMPL RO, “LBN ; ; 
4 12 0021 BNEQ 29$ : ; 
59 : C 0 1 SUBL3 MAP_POINTER, BUILD_POINTER, R1 > 1416 : 
0 1 ¢ 1C DIVE ae R1, R : ; 
2 oc A A ci ADDL3 #58, HEADER, R2 : ; 
6 0 ADDB2 RO, (RO) : ; 
16 AE ° C ADDL2 OLb_COUNT, COUNT > 1417 ; 
2c AE p MOVL _ LBN : 1418 ; 
CO oBF 01 ag B18 { DILD' POINTER), #192 ; 1419 ; 
50 9 x MOV ZWL (BUILD POINTER), RO > 1420 ; 
18 «OA 0 ¢ A BISL2 RO, PLACEMENT : ; 
5 1 ce F 288 MNEG * R > 1422 ; 
50 00 bE 09 ¢ 4 movcS #0. (SP), #0, RO, (BUILD_POINTER) : : 
58 83 DO 23 MOVL § BUILD_POINTER, MAP_POINTER + 1423 ; 
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30$ 
MAP POINTER. BUILD_POINTER 


PLATEME 

HEADER 

LBN 

COUNT 

#4, MAKE _POINTER 
31$ 


LBN 
#16384, =(SP) 
#4, MAKE POINTER 


#163 4, COUNT 
#16384. LBN 
PLACEMENT 

HEADER 

LBN 

#256, -(SP) 

#4, MAKE_POINTER 
#256, COUNT 

#256, LBN 

=(SP5 

COUNT 

LBN 

’ ‘ RETURN. BLOCKS 
OUNT, 24(F1B) 
4$ 


8$ 
#2248 


LBN, 36(BASE) 
COUNT, 40(BASE) 
~96(BASE), 44(BASE) 


FCB 
HEADER 
FIB 
Hs. EXTEND_HEADER 
RO, HEADER 
# RO 
1 
», RO 
Rt) 
R, RI 
J, MAP_PO 
R, BUICD_ 
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5 
1b-se -1984 00:25:07 VAX-11 Bliss-32 V4.0-742 Page 16 
ea een TFRs 98: G3 58s RS WOAASTERCCY TIS. GREJEXTEND.B32:10%" «3S 
20 AE 01 00 D VL #1, REREAD : 1476 
18 AE 0D 1 PUSHL PLACEMENT + 147 
10 AE DD 4 PUSHL HEADER : 
34 AE OD 7 PUSHL L ; 
0 AE DD A PUSHL COUNT : 
00006 cr 9 Fe CALLS #4, MAKE_POINTER : 
4 0 € 4 BLBS RO, 36$ : 
FeFr 4 BUGW + 1479 
0000* 0034 .WORD <BUG$_EXHFUL!4> : 
28 AA D4 00349 36$: (CLRL 40(BASE) + 1483 
1A 16 AB EB 0034 BLBS  22(FIB), 38$ + 1493 
34 AE 6 2 INCL  CBT_COUNT + 149% 
03 4 AE D CMPL cB1-COUNT, #3 + 1495 
4 1F 0 2 BL SSy § : 
16 AB 2 BA 9 BICB ae. 22(F 1B) + 1496 
20 AA D4 0035D 37$: CLRL 32(BASE) + 1497 
00 ; 4 00 60 CLRL_ a0(SP) + 1498 
20 AB A 00 6 BICB2 #2, 32(FIB) + 1499 
FDAO 31 00367 BRW 14§ + 1310 
50 OC AA 09 0036A 38$:  MOVL  12(BASE), RO + 1510 
9 13 0036 BEQL 40$ F 
1A 0B a0 6 €0 00 7 BBS #6, 11(RO), 398 + 1513 
52 10 AE C C1 0037 ADDL3 «#44 , R2 + 1514 
62 Dp 0037A PUSHL (R25 ; 
1c «AB 01 C3 0037¢ SUBL3 #1, 28(FIB), -(SP) : 
14 AE DD 0381 PUSHL HEADER ; 
50 DD 00384 PUSHL ; 
000000006 00 04 FB 00386 CALLS #4, TURN WINDOW : 
OA 11 00380 BRB 40$ ; 
04 BE DD OO38F 39$:  PUSHL a4(SP) + 1517 
000000006 00 01 FB 00 32 CALLS #1, MARK INCOMPLETE ; 
27 20 AE €9 00399 40$:  BLBC REREAD, %2$ > 1521 
OC AE DD 00390 PUSHL HEADER + 1524 
00006 CF 01 FB 0 Ap CALLS #1, CHECKSUM ; 
10 AE D 00 A TSTL FCB + 1525 
OB 13 003A8 BEQL 41$ : 
OC AE DD OO3AA PUSHL HEADER ; 
14 AE DD OO3AD PUSHL ; 
00006 CF 02 FB 00 80 CALLS #2, INIT_FCB2 F 
04 BE DD 003B5 41$: PUSHL  a4(SP) + 1526 
04 AB 9F 00388 PUSHAB 4(FIB) ; 
00006 CF 9 FB 00 cs CALLS nR, READ_HEADER : 
0c AE D C OVL R HEADE é 
AA 40 BF 8 (4 42$:  BISB2 #64, 1(BASE) : 1533 
OC AE DD 003C9 PUSHL 4H : 1534 
00006 CF 01 FB CC CALLS #1, MARK_ qRTy : 
51 1C AB 18 AB 3 D1 ADDL3 24(FI1B),~28(FIB), R1 : 1535 
5 FF AY c D7 MOVAB =-1( R F 
51 oc A 18 f DB ADDL3 #24, HEADER R1 ; 
61 5 19 C O03E ROTL #16. RO, (RI) ; 
50 16 AB 01 EF 003E4 EXT2Z ae #1, 22(FIB), RO : 1536 
61 31 my gl 6 £0 OO8Er ADOLS #32. JHEADER, RI 
50 16 AB ef 1 EF 003F4 EXTZV #1. #1. 22¢FIB), RO + 1537 
61 3 ate 6 £0 O08 ADOLS #32. HEADER, RI 
95 08 AE 4 Fo 404 ADDL3 «#4, -8( SP), RO : 1538 


<m 
e5 
= 


ee mee ee ee ee ee ee ee ee ee a ed ee ed ee ed ed cd ee ed ee ed ed ed ed ed 


K R. 
16-Sep 4 00:25:07 VAX-11 Bliss-32 V4.0-74 
1228 Sep 1382 99:98; 33 DISKSVMSMASTER:CF11X.SR 
18 AB 4h rth MOVL 24(FIB), (RO) 
% BE D 400 MOVL a4(SP), R 
8 AB C1 00411 ADDL3 24(FIBS, 28(F 1B), R1 
FF Al 4 417 MOVAB -1(R1), 56(RO) 
17 AB 41C TSTB =. 23(F IBS 
11 19 0041F LSS 43$ 
02 DD 00421 PUSHL s 
18 AB ODD 00423 PUSH 24(F 1B) 
AE 3C «C1 00426 ADDL #60, HEADER, R2 
DD 00408 PUSHL (R25 
ones CF FB 004 CALLS 4 CHARGE _QUOTA 
03 AA 0 8A 04 43$ BICB2 #32, 3(BASE) 
00006 CF 0 FB 004 CALLS #0, PS END. SUB 
04 00438 RET 
Routine Size: 1084 bytes, Routine Base: S$CODE$ + 0000 
566 1555 1 
567 1556 1 END 
568 1557 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 1084 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eooceece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 51 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXTEND/OBJ=OBJ$:EXTEND MSRC$:EXTEND/UPDATE=(ENHS: EXTEND) 
Size: 1084 ee 0 data bytes 


Elapsed Time: 1:13.4 
Lines/CPU Min: 278 
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